VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BParametrosReporte"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvardFechaIni As Date
Private mvardFechaFin As Date
Private mvarbCompania As bCompania
Private mvarbPuntoVenta As bPuntoVenta
Private mvarbMostrarDetalle As Boolean
Private mvarbMostrarGrafico As Boolean
Public Property Get bMostrarGrafico() As Boolean
    bMostrarGrafico = mvarbMostrarGrafico
End Property
Public Property Let bMostrarGrafico(ByVal bMostrarGrafico As Boolean)
    mvarbMostrarGrafico = bMostrarGrafico
End Property
Public Property Get bPuntoVenta() As bPuntoVenta
    Set bPuntoVenta = mvarbPuntoVenta
End Property
Public Property Set bPuntoVenta(bPuntoVenta As bPuntoVenta)
    Set mvarbPuntoVenta = bPuntoVenta
End Property
Private Sub Class_Initialize()
    Set mvarbCompania = New bCompania
End Sub
Private Sub Class_Terminate()
    Set mvarbCompania = Nothing
    Set mvarbPuntoVenta = Nothing
End Sub
Public Property Get dFechaIni() As Date
    dFechaIni = mvardFechaIni
End Property
Public Property Let dFechaIni(ByVal dFechaIni As Date)
    mvardFechaIni = dFechaIni
End Property
Public Property Get dFechaFin() As Date
    dFechaFin = mvardFechaFin
End Property
Public Property Let dFechaFin(ByVal dFechaFin As Date)
    mvardFechaFin = dFechaFin
End Property
Public Property Get bCompania() As bCompania
    Set bCompania = mvarbCompania
End Property
Public Property Set bCompania(bCompania As bCompania)
    Set mvarbCompania = bCompania
End Property
Public Property Get bMostrarDetalle() As Boolean
    bMostrarDetalle = mvarbMostrarDetalle
End Property
Public Property Let bMostrarDetalle(ByVal bMostrarDetalle As Boolean)
    mvarbMostrarDetalle = bMostrarDetalle
End Property
